home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Snippets / Networking / Get Ethernet Address / CallLAPMgr.a next >
Encoding:
Text File  |  1992-07-15  |  915 b   |  31 lines  |  [TEXT/MPS ]
  1. ;*******************
  2. ;File: CallLAPMgr.a
  3. ;*******************
  4. ; C prototype 
  5. ; pascal long CallLAPMgr(short selector);
  6. ; Pascal prototype
  7. ; Function CallLAPMgr(selector : integer): longint;
  8. *******************
  9. LAPMgrPtr   EQU         $B18           ; This points to our start (???ATalkHk2?)
  10. LAPMgrCall  EQU         2             ; Offset to make LAP manager calls
  11.  
  12. CallLAPMgr    PROC    EXPORT
  13.         LINK        A6,#0            ; set up stack frame
  14.         MOVE.W        8(A6),D0        ; move selector parameter into D0
  15.         MOVE.L        A2,-(A7)        ; store A2 on stack
  16.         MOVEA.L        LAPMgrPtr,A2    ; Set A2 to address of LAP Mgr.
  17.         JSR            LAPMgrCall(A2)    ; Call LAP Manager
  18.         MOVE.L        D1,$A(A6)        ; Place result onto stack
  19.         MOVE.L        (A7)+,A2        ; Restore A2
  20.         UNLK        A6                ; restore stack frame
  21.         MOVEA.L        (A7)+,A0        ; put return address into A0
  22.         ADDQ.W        #$2,A7            ; clear off the parameter
  23.         JMP            (A0)            ; return to caller
  24.         RTS
  25.         ENDP
  26.         
  27.         END
  28. ;*******************
  29. ;End of file
  30. ;*******************
  31.